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SUMMARY 


34 . 33 ? 

As a first step toward automatic STADAN station scheduling, 
a computer program is written to: (1) relieve the STADAN station 
scheduler from sifting through volumes of predicted satellite op- 
erations (i.e., Operational Predictions for Satellites) data to obtain 
the data necessary for station scheduling; (2) save the STADAN 
station scheduler the time, labor, and perhaps human errors of 
transferring the scheduling data to a station scheduling sheet or 
chart; and (3) place the scheduling data in a format more suitable 
for scheduling. The computer program is described in sufficient 
detail to enable anyone with a minimal understanding of general 
computer programming to operate it. 
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A COMPUTER PROGRAM TO IMPROVE 
STADAN STATION SCHEDULING* 

INTRODUCTION 

The Space Data Control Branch, in response to a request from the Network 
Engineering Operations Division, initiated a study to determine the applicability 
of high-speed digital computers to station scheduling. The study was to cul- 
minate with the Space Data Control Branch writing a computer program(s) to 
save the belabored station scheduler from being devoured by the ever increasing 
volumes and complexities of predicted satellite operations data which he utilizes 
to schedule the STADAN stations. The purpose of this technical note is to report 
that the Space Data Control Branch, in the person of the author, has written a 
computer program to: (1) edit the predicted satellite operations data, as cal- 
culated by the revised GSFC orbital programs, extracting only pertinent sched- 
uling data; (2) generate or calculate new predicted satellite operations data when 
the time interval (during a station pass 1 ) of successive predicted satellite op- 
erations data points (as calculated by the revised GSFC orbital programs) equals 
or exceeds two minutes; and (3) place the results of (1) and (2) in a format, as 
illustrated in Figure 1, which is more suitable for station scheduling. (NOTE: all 
satellite and STADAN station conflicts, at any arbitrary time, will be im- 
mediately apparent on ’’first sight” inspection). 

During the initiation of the study, the Space Data Control Branch made plans 
to write, in addition to the aforementioned computer program (PHASE I), a 
second computer program (PHASE II) which would resolve all scheduling con- 
flicts and otherwise make all station scheduling decisions which, heretofore, 
have been a manual operation. Those plans were later suspended. After PHASE I 
is put into operation and proven itself, an effort can be made to write PHASE H 
or a PHASE II- type computer program. 

The PHASE I computer program is mostly written in the FORTRAN IV 
language. However, several control cards of the IBM 7090/7094 IBSYS OPER- 
ATING SYSTEM GENERALIZED SORTINGr SYSTEM are utilized along with 
several MAP routines for multireel output (i.e., the END OF FILE (EOF) mark 
is written automatically when the END OF TAPE (EOT) reflective spot is sensed 

q - • - 

•STADAN is the denotation of SPACE TRACKING AND DATA ACQUISITION NETWORK. 

STATION SCHEDULING is defined to be the allocation of the service time of a STADAN 
station to the satellites which pass through the station’s field of tracking and data acquisition. 
^STATION PASS is defined to be a passing of the satellite through the station’s field of tracking 
and data acquisition. 
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while writing. Reel switching occurs after the EOF is written). The listed 
"deck names" (i.e., FRWB, FRWD, FSLI, FXEM, NOSYS, and GOSYS) within the 
PHASE I computer program, as shown in APPENDIX A, represent binary pro- 
gram decks which constitute modified IBM FORTRAN IV subroutines (written 
in MAP). These binary decks are utilized to enable T&DS’ IBM 7094(s) at GSFC 
to: (1) read the next file, if desired by the programmer, after encountering the 
EOF mark on an input tape; and (2) use the record, as read the 100th time, if 
the "permanent read redundancy" error condition is encountered. 

The ft)RTRAN statements, SORT control cards or instructions, MAP 
routines, and the aforementioned "deck names" of the PHASE I computer pro- 
gram are given in APPENDIX A. 


SUBPROGRAMS OF PHASE I 

The computer program of PHASE I consists of three subprograms as follows: 

SUBPROGRAM 1: (1) Edit the predicted satellite operations data, as calculated 

by the revised GSFC orbital programs, extracting only 
pertinent scheduling data; (2) generate or calculate new pre- 
dicted satellite operations data when the time interval (during 
a station pass) of successive predicted satellite operations 
data points (as calculated by the revised GSFC orbital pro- 
grams) equals or exceeds two minutes; and (3) place the .> 
results of (1) and (2) in a format suitable for sorting internally 
on the IBM 7090/7094. 

SUBPROGRAM 2: Sort the results of (3) of subprogram 1 on the IBM 7090/7094 

with respect to date, time, station, and satellite. 

SUBPROGRAM 3: Place the results of subprogram 2 in the final format as il- 
lustrated in Figure 1. 

ON SUBPROGRAM 1 

Input Data Cards 

For a "run" of subprogram 1, (n + 1) + c data cards are input for n satellites 
of input data, where c is the total number of continuation cards. That is, exclud- 
ing the continuation cards, one data card is input for each satellite of input data 
plus a data card which contains the total number (i.e., n) of satellites whose data 
are input into the computer for the "run" of subprogram X. 

v ' ■ 3 . 


The parameters on the input data cards of subprogram 1 are defined as 
follows: 

TNSATL - total number of satellites whose data are input into the computer 
for a "run” of subprogram 1. 

Z = an alphabetic or non-numerical character assigned to the satellite, 
whose data are input into the computer for a "run" of subprogram 1, 
to: (1) indicate, in the final output, that the satellite is in the field 
of tracking and data acquisition of a STADAN station but is not in 
the sunlight; and (2) identify the satellite and its column of data, in 
the final output, when TNSATL does not exceed the total number of 
alphabetic and "usable" special characters. (NOTE: If TNSATL 
exceeds the total number of alphabetic (26) and "usable" special 
characters, it is suggested that numbers or numerical characters, 
assigned to the satellites by subprogram 1, be used to identify the 
satellites and their columns of data in the final output (these 
numerical characters, obtainable from the on-line print-out of 
subprogram 1, would be inserted with the input data of subprogram 3 
as the values of the parameter NOT(I)), with Z - A for all satel- 
lites whose data are input into the computer for the "run" of sub- 
program 1). 

JPSI = An assigned elevation angle such that the subprogram 1 input data 
of any pass of the satellite through the field of tracking and data 
acquisition of any STADAN station will be deleted if the maximum 
elevation angle of the satellite during the pass does not equal or 
exceed it. (NOTE: With a minor modification in the subprogram 1 
computer program, JPSI can be varied for each STADAN station 
which is scheduled to track and/or acquire data from the satellite.) 

KEY = Number (0, 1, or 2) which enables the program operator to "inform" 
the computer of the number of files and their arrangement on the 
subprogram 1 input reel(s) of predicted operations data for a 
satellite: 

KEY = 0 ==> every input reel of predicted operations data for the 
satellite has only one file. 

KEY = 1 => first input reel of predicted operations data for the 
satellite has two and only two files while each of the 
other input reels, if any, has one and only one. 


KEY = 2 => a "second” input reel of predicted operations data 
for tiie satellite has two and only two files while each 
of the other input reels including the first (i.e., reel 
which contains identifications and World Map data) 
has only one. (NOTE: Due to the format revision of 
the predicted satellite operations data and the sub- 
sequent modification of subprogram 1, it is not neces- 
sary to use "KEY = 2". When, due to identification 
and World Map data, two files appear on any input reel 
except the first, eliminate and don't input the reel(s) 
of identification and World Map data which precede 
the "two file reel." Then, treat the "two file reel" as 
the first input reel of predicted operations data for the 
satellite, and set K = 1. It is assumed, based on 
past operations, that the identification and World Map 
data will precede, on the input reels of predicted 
operations data for the satellite, the predicted op- 
erations data.) 

NOS = total number of STADAN stations whose data are to be deleted dur- 
ing the "run" of subprogram 1. 

NOSTAT = six character name of STADAN station whose data are to be deleted 
during the "run" of subprogram 1. (NOTE: the order of the names 
of the NOSTAT stations on the input data card(s) is not important). 

NOSTAT(L)- NOSTAT in the Lth position of the linear array of NOSTAT(S) on 
(L = 1,2,** # , the input data card. 

NOS) 

It may be worthwhile to note that, in order to delete all of the predicted 
satellite operations data of a satellite, the program operator merely does not 
input the data of that satellite. The above statement assumes, based on past 
operations, that the predicted satellite operations data of two or more satellites 
are not contained on the same reel. 


Memory Allocations 

One hundred (100) core memory locations have been allocated for the 
STADAN stations (see the parameter JSTAT in the Dimension statement of 
subprogram 1, APPENDIX A). If necessary, the program operator may allocate 
additional (up to or beyond several thousand on the IBM 7094) core memory 


locations for the STADAN stations. The core memory allocations of the parameter 
NOSTAT may be adjusted accordingly. Due to one or two adjustment "gimmicks" 
in the computer program, it will never be necessary to allocate additional core 
memory locations for any of the other parameters in the DIMENSION statement. 

In fact, the core memory allocations of JTIM, MINS, JEL, JCHAR, JDAY, JDATE, 
NTIM, NEL, NCHAR, NDAY, and NDATE, respectively, may be decreased if 
several FORTRAN statements are adjusted accordingly. (NOTE: the core 
memory allocations of each of the aforementioned parameters (i.e., JTIM, MINS, 

JEL, , . . . ) may be decreased to (but not less than) two locations) . 

However, if, within the predicted satellite operations data, there exists a large 
number of station passes such that the number of minutes in the duration of each 
station pass is greater than the core memory allocations of JTIM, MINS, JEL, 
JCHAR, JDAY, JDATE, NTIM, NEL, NCHAR, NDAY, and NDATE, respectively, 
the computer program (i.e., subprogram 1) would cause the computer to increase 
its "looping" and, hence, running time. 


ON SUBPROGRAM 2 

Information on the control cards of this subprogram may be obtained from 
any up-to-date manual on the : '% 7090/7094 IBSYS OPERATING SYSTEM 

GENERALIZED SORTING Sir iM. For normal non-stop runs, the subpro- 
gram 2 computer program, as shown in APPENDIX A, may remain unchanged 
with the possible exception of the "REEL/n" field of the INPUT FILE control 
card. The number of reels of data input into the computer for a "run" of sub- 
program 2 is denoted by n in the "REELS/ n" field. It is necessary to update the 
value of n for each "run" of subprogram 2. For example, suppose that the 
number of reels of subprogram 2 input data is 3 for a particular "run," then n 
is 3 and, hence, the INPUT FILE control card, for the particular "run," can be 
written as follows: . ' „ ■ • 

FILE, INPUT/1, REELS/3, MODE/D, DENSITY/H, BLOCKSIZE/5. 

The "REELS/n" field may be omitted for a one-reel file (i.e., the number of 
reels of subprogram 2 input data is one). 

ON SUBPROGRAM 3 

Input Data Cards 

For a "run" of subprogram 3, (n + m + 3) + c data cards, where c is the 
total number of continuation cards, are input for n satellites and m stations of 
input data. The parameters on these data cards are defined as follows: 


DOTS 2 


= two special characters which are used to separate, on 
the final print- out sheet, the data of a STADAN station 
from the data of the STADAN station(s) which is (are) 
adjacent to it. (NOTE: the character followed by the 
blank character were used in the simulated "runs” and 
Figure 1). 

DASH = two special characters which are used to indicate that 
the satellite or spacecraft is not in the field of tracking 
and data acquisition of the STADAN station. (NOTE: two 
blank characters were used in the simulated "runs" and 
Figure 1.) 

TNSTAT = total number of distinct stations whose names are printed 
on-line during the computer "run" of subprogram 1. 

TNSATL = same definition as TNSATL of subprogram 1. (NOTE: 
TNSATL of subprogram 3 is also equivalent to the total 
number of distinct satellites whose identifications are 
printed on-line during the computer "run" of subprogram 
1, unless the program operator input, into the computer 
for a "run" of subprogram 1, the data of a satellite whose 
data are subsequently deleted because every STADAN 
station, through whose field of tracking and data acquisi- 
tion the satellite is predicted to pass, is a NOSTAT 
station (see the definition of NOSTAT above.) 

REELS = total number of reels of data which are output during the 
computer "run" of subprogram 2. 

KSTAT = six (or less) character name of STADAN station. (EX- 
AMPLE: BPOINT) . 

JK = station count or number assigned to KSTAT by the com- 
puter during the ,r run" of subprogram 1. (NOTE: all 
distinct KSTATs or names of STADAN stations whose 
data are input into the computer during a "run" of sub- 
program 1 are assigned numbers (by the computer) in 
ascending order, beginning with the number 1, according 
as they are input into the computer in a non-NOSTAT 
status (i.e., if KSTAT is a NOSTAT station for a satellite, 
it is neither assigned a number nor printed on-line during 
that computer "satellite loop." However, KSTAT could 
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NSATL 


NUM 


NUM (JK, I) 
(1= 1,2,..., NSATL) 


NOT(I) 


* Further explanation is 


be assigned a number and printed on-line during suc- 
ceeding computer ’’satellite loops’’).) 

- total number of distinct satellites whose identifications 
are printed on-line, during the computer "run” of sub- 
program 1, within the same record (i.e., the same line) 
as KSTAT. (NOTE: NSATL is also equivalent to the 
total number of distinct satellites which pass through the 
field of tracking and data acquisition of. the KSTAT 
station and whose predicted data are input into the com- 
puter for the "run” of subprogram 1, unless the KSTAT 
station is a NOSTAT station to one or more of the dis- 
tinct satellites.) 

= satellite count or number assigned to the satellite by the 
computer during the ’’run" of subprogram 1. (NOTE: all 
distinct satellites .whose predicted data are input into the 
computer during a "run” of subprogram 1 are assigned 
numbers (by the computer) in ascending order, beginning 
with the number 1, according as their predicted data are 
input into the computer. If every STADAN station, 
through whose field of tracking and data acquisition the 
satellite is predicted to pass, is a NOSTAT station, the 
NUM of the satellite is not printed on-line even though a 
number is assigned to that satellite by the computer 
during the "run” of subprogram 1). 

= NUM (i.e., satellite count) of the satellite (whose identi- 
fication number is printed on-line, during the computer 
"run” of subprogram 1, within the same record as the 
KSTAT station whose station count is JK) which has the 
I th smallest NUM of all the satellites whose identification 
numbers are printed on-line, during the computer "run" 
of subprogram 1, within the same record as the KSTAT 
station whose station count is JK.* 

= Z (see definition of Z above) of the satellite, whose NUM 
or satellite count is NUM(JK, I), followed by the blank 
character. (NOTE: NOT(I) is also printed on-line, during 
the computer "run" of subprogram 1, within the same 


given below. 
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record as the identification of the above satellite and, 
hence, NUM(JK,I)). 

FDATE = the smallest (or earliest) START-DATE of all the START- 
DATES of the satellites whose predicted operations data 
are input into the computer for the "run" of subprogram 1. 

FTIME = the smallest (or earliest) START-TIME of all the START- 
TIMES of the satellites whose predicted operations data 
are input into the computer for the "run" of subprogram 1. 

LDATE = the largest (or oldest) STOP-DATE of all the STOP-DATES 
of the satellites whose predicted operations data are 
input into the computer for the "run" of subprogram 1. 

LTIME = the largest (or oldest) START- TIME of all the START- 
TIMES of the satellites whose predicted operations data 
are input into the computer for the "run" of subprogram 1. 

Z = Z of subprogram 1. 

IDENT = identification number of the satellite. (NOTE: the identifica- 
tion number consists presently of five numerical characters) . 

JSATL - partial or full name of the satellite. (NOTE: JSATL = 
partial name of the satellite if the name of the satellite 
consists of seven or more characters. For example: 
if EXPLORER is the name of the satellite, JSATL = 
EXPLOR). 

NOS = partial name of the satellite if the name of the satellite 

consists of seven or more characters. (Using the example 
from above, if EXPLORER is the name of the satellite, 
then NOS - ER followed by two blank characters.) 

JSDAT = START-DATE of the satellite. 

JSTIM = START-TIME of the satellite. 

JXDAT = STOP-DATE of the satellite. 

JXTIM = STOP- TIME of the satellite. 
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JPSI = JPSI of subprogram 1. (NOTE: in the format, exterior 
location 74, of subprogram 3 in APPENDIX A, space has 
been alloted to enable the program operator to insert a 
"decimal” character within the value of JPSI of subpro- 
gram 1.) 

On the second input data card of subprogram 3, the values of the parameters 
TNSTAT, TNSATL, and REELS may be predetermined before the computer "runs" 
of subprograms 1, 2, and 3* The values of the parameters TNSTAT and TNSATL 
can also be easily determined from the subprogram 1 on-line print-out. However, 
as we indicated above, the value of TNSATL input into the computer for the "run" 
of subprogram 1 is different from the value of TNSATL determined from the 
subprogram 4 ! on line print- out if the program operator input, into the computer 
for a "run" of subprogram 1, the data of a satellite whose data are subsequently 
deleted because every ST ADAN station, through whose field of tracking and data 
acquisition the satellite is predicted to pass, is a NOSTAT station. In this event, 
either value of TNSATL may be used (for the subprogram 3 input) since the 
predicted operational data of that satellite will not be processed or even considered 
during the computer "run" of subprogram 3. (NOTE: If the subprogram 1 input 
value of TNSATL is used, the set of input data cards whose parameters are Z, 
IDENT, JSATL, NOS, JSDAT, JSTIM, JXDAT , JXTIM, and JPSI should contain 
an input data card on every satellite whose predicted operational data are input 
for the computer "run" of subprogram 1. If the subprogram 1 on-line print-out 
value of TNSATL is used, the set of input data cards whose parameters are Z, 
IDENT, JSATL, NOS, JSDAT, JSTIM, JXDAT, JXTIM, and JPSI should contain 
an input data card on every satellite whose predicted operational data are input 
for the computer "run" of subprogram 1 except the satellites whose predicted 
operational data are deleted as described above.) In order to eliminate any 
possible variation of the value of TNSATL during the computer "runs" of sub- 
programs 1, 2, and 3, the program operator should pre- check the station listing 
of each satellite, whose predicted operational data are input for the computer 
"run" of subprogram 1, and not input the data of any satellite whose predicted 
operational data would be deleted as described above. 

On the set of input data cards whose parameters are JK, KSTAT, NSATL, 
NUM(JK, 3), and NOT(I), I = 1,2,—, NSATL, the values of the aforementioned 
parameters should be obtained and determined from the subprogram 1 on-line 
print-out since the relationship of the values of JK, KSTAT, NUM(JK, I) and 
NOT(I), I = 1,2,‘**, NSATL, on each member (i.e., input data card) of the afore- 
mentioned set depends on the order in which the predicted operational data of 
the satellites are input into the computer for a "run" of subprogram 1. 
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Records of data consisting of the values of JK, KSTAT, NUM(JK, I), NOT(I), 
and IDENT, for some I, I = 1,2,* •», NSATL, are printed on-line by the computer 
during the ”run’ f of subprogram 1. An example of an on-line print-out of a 
subprogram 1 computer "run" is given as follows: 

1 B POINT 1 A 62681 

2 FTMYRS 1 A 62681 

1 B POINT 2 B 72798 

3 JOBURG 2 B 72798 

2 FTMYRS 3 C 92671 

3 JOBURG 4 D 42013 

From the example above, it is easy to see that TNSTAT = 3 and TNSATL = 4. 
The set of input data cards whose parameters are JK, KSTAT, NSATL, NUM(JK, I), 
and NOT(I), I = 1,2,***, NSATL, consist of three members as follows: 

FIRST INPUT CARD: JK = 1; KSTAT = B POINT; NSATL = 2; NUM(1, 1) = 1; 

NOT(l) = A; NUM(1,2,) = 2; and NOT(2) = B. 

SECOND INPUT CARD: JK = 2; KSTAT = FTMYRS; NSATL = 2; NUM(2,1) = 1; 

NOT(l) = A; NUM(2,2) = 3; and NOT(2) = C. 

THIRD INPUT CARD: JK = 3; KSTAT = JOBURG; NSATL = 2; NUM(3,1) = 2; 

NOT(l) = B; NUM(3,2) = 4; and NOT(2) = D. 

For a more automatic and perhaps faster operation from subprogram 1 
through subprogram 3, subprogram 1 may be modified so that the array of input 
data whose parameters are TNSTAT, TNSATL, JK, KSTAT, NSATL, NUM(JK, I), 
and NOT(I), I = l,2,v, NSATL, are either card punched on-line by the computer 
(NOTE: this operation (i.e., punching cards on-line) should be avoided on T&DS’ 
IBM 7094 computers at GSFC) or written on a magnetic tape separate from the 
other output data tapes. The on-line punched cards or magnetic tape are/is 
later input into the computer for the "run” of subprogram 3. The subprogram 1 
on-line print-out would no longer be vital to the operation of subprogram 3. 
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Memory Allocations 

As in subprogram 1, one hundred (100) core memory locations have bden 
allocated for the STADAN stations or, more specifically, for the values (i.e., 
names of the STADAN stations) of the parameter JSTAT. The core memory 
allocations for the parameters JSTAT and MSATL are and should always be the 
same (see the DIMENSION statement of subprogram 3). The core memory al- 
locations for each of the parameters NUM, NOT, MOT, NSU, and JEL were al- 
located as a function of: (1) ten physical tape units (i.e., tape drives) for output; 
and/or (2) 150 character-wide print-out paper or sheets for the final results as 
illustrated in Figure 1. 

Let: x be the number of core memory locations which are allocated for the 
names of the STADAN stations; y be the maximum number of tape drives, attached 
to the computer, which can be utilized for output during the ’’run” of subprogram 3; 
and Z be the total number of characters which can be written width-wise across 
the print-out paper which will be utilized for the final results. Then, the DIMENSION 
statement of subprogram 3 can be formulated, using FORTRAN language nota- 
tions, as 

DIMENSION NUm(x, NOT^y * (^r)| MOT^y * (^|, JSTAT (x), MSATL (x), 
NSU <y), JEL(^) 

(NOTE: Suprogram 3, Appendix A, is written to print the final results on 132 or 
more character- wide print- out paper. However, if the additional width on the 
"greater than 132" character-wide print-out paper is to be utilized, two FORTRAN 
statements must be adjusted according to the increase over 132.) 


Format Updating 

In Figure 1, the number of satellites serviced by a STADAN station is the 
same for all the stations. However, this is not always the case as the number of 
satellites serviced by two or more distinct STADAN stations may vary. Hence, 
in order to output the scheduling data in the final format, as illustrated in Fig- 
ure 1, without "wasting" spaces on the print- out sheet between the data of two 
stations, it is necessary to update the output formats (i.e., exterior statement 
numbers 98, 99, 100, 101, 102, 103, 104, 105, 106, and 107) of subprogram 3. 
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The formats whose exterior statement numbers are 98, 99, 100, 101, 102, 
1Q3, 104, 105, 106, and 107 are generalized and formulated in APPENDIX B 
where: 

MSATL(I), I = 1,2,—, NSU(l), NSU(l) + 1,— , NSU(IO), is the number of 
satellites serviced by the STADAN station whose station count (i.e., JK) 
is I. 

NSU(1) is the number of STADAN stations whose data are output on logical 
unit A3. 

NSU(2) is the number of STADAN stations whose data are output on logical 
unit B5. 


NSU(10) is the number of STADAN stations whose data are output on logical 

unit A8. 

If MSATL(I), I - 1,2,—, NSU(10), is 2, it is suggested that the name (i.e., 
XSTAT) of the STADAN station whose station count is I be input, on the input data 
cards of subprogram 3, as a four- character name, instead of a six-character name, 
followed by two blank characters. Otherwise, the six-character names of at 
least two STADAN stations will be written together in the heading of the final 
print- out with no space between them. 

If MSATL(I), I = 1,2,—, NSU(10), is 1, the formulated formats of APPENDIX B 
do not hold true. In order to rectify this, it is suggested that: (1) the name (i.e., 
KSTAT) of the STADAN station whose station count is I be input, on the input data 
cards of subprogram 3, as a two character name followed by four blank characters 
(2) the "A6" (of the aforementioned formats) which precede the expression which 
contains MSATL(I) be changed to "A2"; and (3) set (2 * MSATL(I) - 4), the ex- 
pression which contains MSATL(I), equal to 2. 

Elimination of Computer Hang-Up and Unneccessary Dumps ■ 

. — — t 

If a logical tape unit which is referenced in subprogram 3 is not used during 
a "run" of subprogram 3, the 7094 computer system of T&DS at GSFC will still 
select and unload that logical tape unit after the "run”. This may often result 
into a computer hang-up and an unnecessary dump of core storage. To avoid 
this, appropriate $NAME card(s) should be inserted into the subprogram 3 deck 
after the $IBJOB card, along with the proper instruction on the instruction card. 
For example, in a short simulated "run" of subprogram 3, only logical units A5 
and A3 were utilized during the computer "run". In order to stop the computer 
from selecting and attempting to unload logical units A6, B5, B6, Cl, C2, A7, B7 , B8, 
B9, and A8 all of subprogram 3, nine $NAME cards were inserted into the 


subprogram 3 deck after the $IBJOB card in the form 
COLUMN 1* 16 

InAME IuNI . = .UN19. 

Where I = 06, 15, 16, 21, 22, 07, 17, 18, 08. Then, an output reel for logical 
unit B9 (i.e., .UN19.) was requested on the instruction card. 

The MAP routine for multireel output on a particular logical tape unit should 
be inserted into the subprogram 3 deck for a computer "run" if and only if that 
logical unit will be utilized during that "run" (or all MAP routines for multireel 
output on the logical tape units which will not be utilized during a computer "run" 
should be removed from the subprogram 3 computer program of APPENDIX A 
for that "run"). If a MAP routine for multireel output on a logical tape unit is 
inserted into the subprogram 3 deck for a computer "run", the computer will 
select and attempt to unload the logical tape unit after that "run". 

Output 


If the data at some time t, as illustrated in Figure 1, exceed 132 characters, 
two or more physical tape units (i.e., tape drives) are used to output the data in 
the format as illustrated in Figure 1. If the data at some time t, as illustrated 
in Figure 1, exceed 1320 characters (i.e., 132 characters times 10 tape drives) 
or if more than ten tape drives are needed for output, the computer will stop its 
execution of subprogram 3, after printing an "informative" message on-line, 
and return control to the Basic Monitor. (IMPORTANT NOTE: If ten tape drives 
are used for output during the computer "run" of subprogram 3, logical tape unit 
A2 (i.e., SYSIN1, the system input tape unit for the T&DS 1 IBM 7094 computers 
at GSFC) is eliminated by subprogram 3, and the computer "hangs-up" after the 
subprogram 3 computer "run".) 

The output tapes of subprogram 3 are printed, off-line, by the IBM 1401 
computer, on 132 character-wide paper or sheets. The print-out sheets of the 
output tape(s) of each tape drive used for output during the subprogram 3 computer 
"run" are bursted and then bound into a book. Within each book of scheduling 
data, there exist no unused "character space" between the data of two adjacent 
STADAN stations even though the number of satellites serviced by one of the 
stations is not the same as the number of satellites serviced by the other. How- 
ever, an unused "character space(s)" may exist at the end, width-wise, of each 
page or sheet of a book of scheduling data since all the scheduling data of each 
STADAN station are contained within one book of scheduling data. (NOTE: sub- 
program 3 can be modified or revised so that unused "character spaces" can not 


14 


exist at the end, width- wise, of each page of a book of scheduling data when the 
station count (i.e., JK) of each ST AD AN station within the book is less than the 
station count of any STADAN station within another book of the same "run." The 
result of the above revision would be that the data of some STADAN stations 
would be "divided" or "broken-up" and placed into two separate books with a 
part of the data in one book and the other part in a second book. This appeared 
to be bad human engineering from the reader or STADAN station scheduler’s 
viewpoint) . 


PASS-CHAINS OF FINAL OUTPUT 

In the final print- out or books of scheduling data, it is easy to recognize the 
station passes of each satellite by observing the vertical "chains" of data, at one 
minute intervals, under the satellite’s notation or identification character(s) 
as illustrated in Figure 1. Henceforth, a vertical chain of data at one minute 
intervals will be called a pass-chain. 

Regardless of the variations of the time increments of successive data points 
of predicted satellite operations, no break or breaks will ever occur in a pass- 
chain except when, during a station pass of more than 1 day, the day count incre- 
ment (disregarding the 365 or 366 days/year) of two successive data points of 
predicted satellite operations exceeds X day. Scheduling data are not generated, 
by subprogram 1, for the date or dates on which no data point of predicted satel- 
lite operations is computed. If at least 1 data point, of predicted satellite oper- 
ations for a station pass of any duration, is computed for a date, additional 
scheduling data will be generated, by means of subprogram 1, to complete the 
pass-chain for that date. To guard against breaks in the pass-chain, the time 
increment of any two successive data points, of predicted satellite operations for 
a station pass, should never exceed 24 hours or 1440 minutes. (NOTE: While it 
is recognized that the above case is remote or far- fetched, the situation could 
be encountered with the Syncom-type satellites and deep space probe vehicles.) 

METHODS FOR HANDLING EXTRA LARGE NUMBERS OF 
STATIONS AND SATELLITES 

Each of the T&DS IBM 7094 computers (i.e., A, B, and C) at GSFC has a 
maximum of 14 physical tape units (i.e., tape drives) even though each has 30 
logical tape units. Subprogram 3 can use up to 12 of the 14 physical tape units, 

2 for input and 10 for output. The 7094 computer system will not allow subprogram 

3 to use the remaining 2 physical tape units. 


The 10 output tape units, as used in subprogram 3 with 132 character-wide 
print-out sheets, are presently adequate for all normal operations. However, 
for an abnormal operation (i.e., an extra large number of stations) and with 
the number of satellites in orbit steadily increasing, the 10 output tape 
units, as used in subprogram 3 with 132 character- wide print-out sheets, 
may/may soon be inadequate. In order to make the 10 output tape units, as used 
in subprogram 3 with 132 character-wide print-out sheets, adequate for all pres- 
ent and future operations including extra large numbers of stations and satel- 
lites, it is necessary to devise methods or techniques to overcome the above 
limitations. Three such methods are listed as follows: 

METHOD 1: The names of the ST AD AN stations which are listed in the predicted 
satellite operations data (i.e., the input of subprogram 1), and are 
not NOSTAT stations (see definition of NOSTAT, above) are sep- 
arated into two or more sets, say set A, set B, etc. . . . Then: 

(a) the members of all of the above sets except, say, the set A 
are punched on subprogram 1 input data cards as NOSTAT stations. 
Now, the above input data cards, other appropriate data cards, and 
all of the predicted satellite operations data are input, in the usual 
manner, into the computer for a "run" of subprogram 1. Using the 
output of subprogram 1, subprograms 2 and, finally, 3 are ’’run" in 
the usual manner, also. The final result of these "runs" (i.e., 
subprograms 1, 2, and 3) is a set of books of scheduling data whose 
ST AD AN stations are members of set A. 

(b) the members of all the sets (i.e., set A, set B, etc. , .) except 
set B are punched on subprogram 1 input data cards as NOSTAT 
stations. Then, these input data cards, other appropriate data 
cards and, again, all of the predicted satellite operations data are 
input, in the usual manner, into the computer for a "run" of sub- 
program 1. Using the output of subprogram 1, subprogram 2 and, 
finally, 3 are "run" in the usual manner. The final result is a set 
of books of scheduling data whose STADAN stations are members 
of set B. 

(c) etc. ... . 

Of course, this method increases the computer time. However, 
the placement of the scheduling data within the books is virtually 
unaffected by the method. 
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METHOD 2: the names of the satellites, each of which is predicted to pass 
through the field of tracking and data acquisition of at least one 
non-NOSTAT station and whose predicted operations data are to be 
input into the computer for the ’’run” of subprogram 1, are separated 
into two Or more sets, say set G, set H, etc. . . . Then: 

(a) the predicted operations data of the satellites whose names are 
members of one and only one of the above sets, say set G, are input 
into the computer for a "run” of subprogram 1. The input data cards 
of subprogram 1 are appropriately adjusted for the M run.” Using the 
output of subprogram 1, subprograms 2 and, finally, 3 are ’’run” 

in the usual manner. The final result of these "runs" (i.e., subpro- 
grams 1,2, and 3) is a set of books of scheduling data whose satel- 
lites are members of set G. 

(b) the predicted operations data of the satellites whose names are 
members of set H are input into the computer for another "run" of 
subprogram 1. The input data cards of subprogram 1 are appro- 
priately adjusted, again. Using the output of subprogram 1, sub- 
programs 2 and, finally, 3 are then "run" in the usual manner. The 
final result is a set of books of scheduling data whose satellites 
are members of set H. 

(c) etc. . . . 

The computer executing time, excluding compiler time, is not 
significantly increased by this method. However, the placement of 
the scheduling data within the book is affected. 

METHOD 3: An appropriate combination of methods 1 and 2, above. 


EXPLANATION OF FIGURE 1 

A blank at time t in column A, B, or C under a particular station indicates 
that RELAY 1, RELAY 2, or ECHO 2 is not in the field of fracking and data 
acquisition of that station at time t. For example, at time 0836, RELAY 1 and 
RELAY 2 are not in the field of tracking and data acquisition of FTMYRS. 

A, B, or C at time t in column A, B, or C under a particular station indicates 
that RELAY 1, RELAY 2, or ECHO 2 is in the field of tracking and data acqui- 
sition of that station but is not in sunlight at time t. For example, at time 0836, 
ECHO 2 is in the field of tracking and data acquisition of FTMYRS, LIMAPU, 
and QUITOE but is not in the sunlight. 
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An "*" at time t in column A, B, or C under a particular station indicates 
that RELAY 1, RELAY 2, or ECHO 2 is in the field of tracking and data acqui- 
sition of that station and is in sunlight at time t. For example, at time 0836, 
RELAY 2 is in the field of tracking and data acquisition of JOBURG and is in 
the sunlight. 

At time 0837, 7 in column C under station QU1TOE indicates that ECHO 2 is 
at maximum elevation angle in the field of tracking and data acquisition of QUITOE 
but is not in sunlight, and the maximum elevation angle ranges from 70-79 
degrees. 

At time 0847, 5* in column C under station SNTAGO indicates that ECHO 2 
is at maximum elevation angle in the field of tracking and data acquisition of 
SNTAGO and is in sunlight, and the maximum elevation angle ranges from 50-59 
degrees. 

The character "•" followed by the blank character were used to separate 
the data of the stations (see the parameter DOTS2 of the INPUT DATA CARDS 
of SUBPROGRAM 3, above). 


CONCLUSION 

The computer program is capable of: (1) deleting, from the predicted satel- 
lite operations data (as calculated by the revised GSFC orbital programs), the 
data of any orbital parameter, station pass, STADAN station, and/or satellite; 

(2) "handling" or processing the predicted operations data of any satellite, made 
or unmade, including Syncom or a Syncom-type satellite (which would have a 
single continuous pass from START-DATE to STOP-DATE); (3) imposing no 
limits on the duration of any pass (that is to say, the computer program can 
’’handle" a station pass of any duration); (4) generating or calculating new predicted 
satellite operations data when the time interval (during a station pass) of sue- Pt 
cessive predicted satellite operations data points equals or exceeds two minutes; 
and (5) processing, by methods 1, 2, and 3 as described above, the predicted 
operations data of extra large numbers of satellites and stations. 

In addition to improving STADAN station scheduling as described above, the 
computer program may also serve as a "stepping stone" and catalyst to a Phase 
II- type computer program for more fully automated station scheduling. 

The utilization of the computer program (and perhaps later a Phase n-type 
computer program) would result in a significant saving in manpower as well as 
a faster and more efficient operation. 


18 






APPENDIX A 


SUBPROGRAM 1 


WDD521A * X4189 

DEAR OPERATOR • PLEASE MOUNT THE TAPES. AS DESIGNATED ON ... 
INSTRUCTION CARD .ON A5.A6.AND B5. A3 AND B6 ARE MY OUTPUT 
UNITS. SAVE MY B6 OUTPUT TAPES. 

RESTART MACHINE. THE MACHINE WILL READ AND. REWlND._A5.A6. 
AND B5 .SEQUENTIALLY AND CYCL 1 CALLY .UNT I L ALL TAPES ARE 
RFAD. AFTER A5.A6.OR B5 IS REWOUND. MOUNT . I MMEDI ATELY . THE 
NEXT TAPE AS SHOWN ON INSTRUCTION CARQ. 

052065 
IR JOB 
GO 

$ 1 8FTC MAIN . 

C STATION SCHEDULING. SUBPROGRAM 1 ©F PHASE 1 

LOGICAL EOF 
COMMON /SYSFOF /EOF 
FOF* .FALSE • 

CALL S YSGO ( 34 ) 

CALL SYSCO (35) . 

INTEGFR X.OP.EN.STA.TIME.Z.TNSATL 

ODATA 0P/6H0P / .EN/6HEN / .STA/6H { ST AT I / *T DME /6H ( T IME /.ICHAR/ 

16H* / 

OD I MENS I ©N N©STAT ( 99 ) . JSTAT ( 100 ) ,KT IM ( 4 ) . JT IM ( 900 ) .MI NS ( 900 ) . JEL ( 90 
10) . JCHAR ( 900 ) * JDAY (900 ) * JDATE C 9 00 ) .NT I M ( 900 ) .NEU 900 ) .NCHAR ( 900 ) »N 
2DAY ( 900 ) .NDATE ( 900 ) 

READ ( 2 * 3 ) TNS ATL 
3 FORMAT (13) 

< = 0 
J = 1 

DO 4 I*1»TNSATL 

READ (2.5)Z»JPSI.KEY.N0S.(N©STAT(L).L-1.N®S) 

5 FORMAT ( A1 . A4 . 1 1 . 1 2 .99A6 ) 

IF (KFYJ16. 17*1.6 

16 GOTO ( 18.19.20) .J “ 

18 READ (5.2DKSKIP 
IF ( EOF ) GOTO 22 
GOTO 18 

19 READ (6.21 XSKIP 
IF (EOF) GOT© 22 
GOTO 19 

20 RFAD ( 15,21 IKSKIP 
IF ( EOF ) GOTO 22 
GOTO 20 

21 FORMAT (ID 

22 £©F*.FALSF. 

IF ( KFY-1 ) 232 .17*23 

23 KEY* 1 

GOTO (24.25.26) . J 

24 REWIND. 5 
J*2 

GOTO 19 

25 REWIND 6 
J*3 

GOT® 20 

26 REWIND 15 
v j«l • 

GOTO 18 


SIBSYS 
$ I D R02T 
$# 

$* 

S* 

$* 

$* 

$* 

$* 

SPAUSF 
SDATF 
SFXFCUTF 
$ IBJOB 
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17 GOT© ( 27* 28 * 29 ) * J 

27 READ (5*30 ) IOFNT*X 
IF ( E©F)G©T© 31 

IF ( X-ST A ) 32 *33 • 32 

32 IF ( X-T IMF ) 27 • 34 *27 

28 READ (6*30) IDFNTrX 
IF (E©FJG©T© 31 

IF ( X-ST A) 35 *33*35 

35 IF ( X-T IMF ) 28 * 34 * 28 

29 RFAO ( 15*30) IDFNT*X 
IF ( E©F ) GOT© 31 

IF (X-STA)36. 33*36 

36 IF (X-TIMF)29*34*29 

30 F0RMAT ( 2 9X * A5 * IX *A6 ) 

34 PRINT 37* IDF.NT 

370FORMAT ( 1H0 *50HST0PP I NG PRtUIXS ARE TIME SORTED F0R SATELLITE 

1 A5 * 35H . USF 0NLY STATION SORTED PREDIXS.) 

GOT© 232 

31 F®F~ *FALSF • 

IF (KFY-1 )38* 17*38 

38 GOT© ( 39*40*41 ) *J 

39 REWIND 5 

J-2 “ 

GOT© 28 

40 REWIND 6 
J=3 

GOT© 29 

41 REWIND 15 
J-l 

GOT© 27 

33 GOT® (42*43*44) *J 

42 RFAD (5*21 )KSKIP 
IF ( EOF ) GOT© 45 
GOT© 46 

43 RFAD (6*21 )KSKIP 

IF ( F©F ) G©T® 45 ^ 

GOT© 46 

44 READ ( 15*21 XSKIP * 

IF (EOF) GOT© 45 

GOT© 46 

45 FOF® •FALSE • 

GOT© <47*48*49 )*J 

47 REWIND 5 
J=2 

GOTO 43 

48 REWIND 6 
J-3 

GOT© 44 

49 REWIND 15 
J=1 

GOT© 42 

46 GOT© ( 50*51*52) * J 

50 READ (5*53)KSTC*KSTAT*KPASS*KDAY*KDATE*KTIM*KEL*KCHAR 
IF ( EOF ) GOT© 54 

GOT® 55 

51 READ ( 6*53)KSTC*KSTAT*KPASS*KDAY*KDATE*KTIM*KEL*KCHAR 
IF (F©F)GOT© 54 

GOT© 55 

52 READ ( 15*53)ICSTC*KSTAT*KPASS*<DAY.KDATE*KTIM*KEL»K.CHAR 
IF (E©F )G®T© 54 
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GOT® 55 

53 F0RMAT ( 1 X . A2 * IX • A6 * Al » 6X » A3 * IX * A6 * IX *4A 1 * 1 4X * A4* 16X * AX ) 

54 E0F=.FALSF. 

G0T© ( 56*57*58 ) *J 

56. REWIND. 5 
J~2 

G0T® 51 

57 RFWIND 6 
, J*3 

G0T© 52 

58 RFWIND 15 

J*1 < 

G0T© 50 

55 D© 59 M=l,N©S 

IF (KSTAT-N©STAT(M) >59*60*59 

59 C0NTINUF 
JSTOKST C 

IF (061*62*61 

61 D© 63 J<«1*K 

IF (JSTAT(JK)-KSTAT)63*64*63 

63 CONTINUE 

62 K=K+1 
JK=K 

JSTAT( JK)*KSTAT % 

64 NB I G=0 
196 NPASSssO 

65 D© 66 N*1.900 
0© 67 M=1 ,4 

KTIM(M)«KTIM(M)/( 2**30) 

67 C0NTINUF 

JT IM ( N ) =<T IM( 1 )*( 10**3)+KTIM(2)*( 10**2 ) +KT IM < 3 ) *10+KT IM ( 4 ) 
MINS(N)»KTIM(3)*10+KTIM(4) 

JFL ( N) S KFL 
JCHAR ( N ) *KCHAR 
JDAY ( N ) *KDAY 
JDATF ( N ) *KDATE 
80 G0T© (68*69*70) *J 

68 READ (5*153)KSTC*KPASS,KDAY*KDATE*KTIM*KEL*KCHAR 
IF (F0F)G©T® 71 

G©T0 72 

69 READ (6*153)KSTC*KPASS*KDAY.KDATE.KTIM*KEL.KCHAR 
IF ( F©F)G©T© 71 

G0T© 72 

70 READ ( 15* 153 )KSTC*KPASS*KDAY*KDATE*KTIM*KEL*KCHAR 
IF ( F0F )G®T© 71 

G©T© 72 

153 FORMAT ( IX * A2 * 7X * Al *6X * A3 * IX* A6 * IX *4A1 * 14X • A4* 16X * Al ) 

71 F©F*.FALSF. # 

G©T© (73*74.75) *J 

73 RFWIND 5 
J= 2 

G0T© 69 

74 REWIND. 6 
J*3 

GOT© 70 

75 REWIND 15 
J*1 

G©T© 68 

72 IF (JSTC-KSTC)77. 76*77 

76 IF ( KPA5S- I CHAR )66*78*66 
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77 G0T© (81*82 *83 ) • J 

81 READ (5*21 )KSKIP 
IF (E0F)G0T© 84 
G0T© 85 

82 READ ( 6*21 KSKIP 
IF (E0F)G0T© 84 
G0T0 85 

83 READ (15.2DKSKIP 
IF ( E0F )G0T© 84 
G0T© 85 

84 E0E«.FALSF© 

G0T© (86*87*88)*J 

86 REWIND 5 
J*2 

G0T© 82 

87 REWIND 6 
J*3 

G0T© 83 

88 REWIND 15 
J=1 

G0T0 81 

85 IF (KSTC-0P >79*80*79 
66 C0NTINUF 

NPASS=900 

N-900 

79 G0T© (89*90*91). J 

89 READ (5*92) KSTC 
IF ( E0F )G©T© 93 
G0T© 78 

90 READ (6*92)KSTC 
IF (E0F)G0T© 93 
G0T0 78 

91 READ ( 15.92) KSTC 
IF (E0F)G0T© 93 
G®T® 78 

92 E0RMAT (1X.A2) 

93 F®E=.FAL5E* 

G0T© (94*95 *96 ) * J 

94 REWIND 5 

■© 

J = 2 

G0T© 90 

95 REWIND 6 
J s 3 

G0T© 91 

96 REWIND 15 
J=1 

G®T® 89 

78 IE ( NBIG) 97*98*97 

98 JELM»0 

97 D© 99 M = 1 * N 
JELM«MAX0 (JFL(M)»JELM) 

99 C0NTINUF 

IE (JELM-JPSI ) 100*101*101 
101 I N=1 
MX*1 
IX = 1 
J630*2 
J624*2 
J612*2 
J632 s 2 


J130*2 

J121*2 

J132*2 

J139*2 

IF ( N0 16) 1 02 *645 » 102 
645 IF (N- 1)601*634*601 
601 IN*IN+1 

103 IF (JDATEt IN)-JDATE(MX) J106.625.106 

625 IF (MI NS (MX) -000059)611*622. 611 

622 IF ( JTIM( IN)-JTIM(MX)-000041)603*604*623 

623 NTIM( IX)*JTIM(MX) 

NFL ( IX ) * JEL (MX ) 

NCHAR( IX)*JCHAR(MX) 

NO AY (IX)*JDAY(MX) 

NOATE( IX )* JOATF ( MX ) 

IF ( IX-900)624*613*613 

624 IF (JFL(MX)-JELM)627. 628*628 

628 JFL (MX ) as JFL ( IN) 

627 IX*IX+1 

JT IM (MX )«JTIM( MX >+000041 
MINS (MX ) *0 

IF ( JOATF ( IN) -JOATF (MX) >605*611*605 

611 IF ( JTIM( IN)-JTIM(MX)“000001)603*604.605 

603 IF ( JFL( IN)-JELM)606.607*607 

607 JEL ( MX ) i* JFL ( IN ) 

JCHAR ( MX ) * JCHAR (IN) 

606 IF ( IN-N)601*608*601 

604 NT IM ( IX ) ssjTlM (MX ) 

NFL ( IX ) = JFL ( MX ) 

NCHAR (IX) * JCHAR ( MX ) 

NOAY (IX) * JDAY ( MX ) . 

NOATF ( IX )* JOATF ( MX ) 

MX* I N 

IF ( IX-900)630#609*609 

630 IX*IX+1 

IF ( IN-N)601*606*601 

605 NTIM( IX)*JTIM(MX ) 

NFL ( IX ) * JFL(MX ). 

NCHAR ( IX ) * JCHAR ( MX ) 

NOAY (IX) * JDAY ( MX ) 

NDATEl IX)sJDATF(MX) 

IF (.IX-900)612* 631*631 

612 IF ( JFL(MX)-JELM)629*626*626 

626 JFL(MX)*JFL( IN) 

629 IX*IX+1 

JT IM ( MX )*JTIM( MX >+000001 
MINS(MX)*MINS( MX >+000001 
IF (JOATF( IN)-JDATE(MX) >107.625.107 
107 IF ( MINS (MX ) -000059 ) 605 * 106*1 06 
609 J630*0 
GOT® 108 

613 J624-0 
G0T® 108 

631 J612*0 
G0T© 108 

608 IF ( NPASS >640 #634* 640 
634 NTIM(IX)*JTIM(MX) 

NFL ( IX ) * JEL (MX ) 

NCHAR II X>* JCHAR ( MX.) 

NDA Y (IX) * JOA Y ( MX ) 
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NDATF( I X ) = JDATF ( MX ) 

GOT© 1 08 

640 NJT IM* JT I M ( MX ) 

NJFL* JFL ( MX ) 

NJCHAR* JCHAR ( MX ) 

NJDAY=JDAY {MX ) 

N JDATF* JDATF ( MX ) 

NMINS*MINS(MX) 

I X= I x-l 
GOT® 108 

106 IF <JTIM(MX)-002359)110tllltlll 

110 IF (MlNS(MX)-000059)605.623*605 

111 NT IM (I X ) = JT IM ( MX ) 

NFL( I X ) * JFL ( MX ) 

NCHARI IX)=JCHAR(MX) 

NDAY ( I X ) = JDAY ( MX ) 

NDATE( IX ) =JDATF ( MX ) 

IF ( I X— 900 >632*633*633 

632 IF (JEL(MX )-JEI_M) 112*113.1 13 
113 JFL ( MX ) * JFL ( IN) 

112 IX=IX+1 

JT I M ( MX ) *0 
w I NS ( MX ) * 0 
JDAY ( MX ) * JDAY ( IN) 

JDATF ( MX ) * JDATF (IN) 

GOT© 611 

633 J632-0 
GOTO 108 

102 IF ( JDATF (IN) -NJDAT E)ll 4 *115*114 

115 IF ( NMINS-00C059 ) 116*1 ] 7*116 

117 IF ( JT IM C INJ-NJTIM-000041 ) 118.119.120 

120 NT IM (I X ) *N JT I M 
NFL l IX) -NJFL 
NCHAR ( I X ) * NJCHAR 
NDAY (IX) =NJDA Y 
NDATE ( 1 X ) sNJDATE 

IF ( IX-900) 121*12 2*122 

121 IF (NJFL-JFLM) 128*124*124 
124 NJFL* JFL ( IN) 

123 IX=IX+1 

N JT I M*NJT I M+000041 
NMINSsO 

IF ( JDATF ( IN J-NJOATE) 125.116.125 

116 IF ( JTIM( IN)-NJTIM-000001 ) 118.119.125 

118 IF (JFL(IN)-JELM) 126.127*127 

127 NJFL* JFL ( IN ) 

NJCHAR* JCHAR (IN) 

126 IF ( IN-N)128, 129.128 
129 IF ( NP ASS ) 1 96 • 301 .1 96 
301 NTIMt IX)*NJTIM 
NFL (IX) *NJFL 
NCHAR ( IX) *N JCHAR 
NDAY ( I X ) *NJDAY 
NDATET I X ) *NJDATE 
GOT® 108 

128 IN=IN+1 
GOT© 102 

119 NT IM (IX) =NJT IM 

NFL ( IX ) *NJFL ' 

NCHAR ( IX) sN JCHAR 
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NDAY { I X ) *N JDAY 
NDATE( IX)*NJDATE 
MX*I N 

IF ( IX-900M30.131.131 

130 ix*ix+i 

IF ( IN-N)601.608.601 
125 NT IM ( I X ) *N JT IM 
NFL ( IX ) *NJFL 
NCHAR( IX ) *NJCHAR 
NDAY ( I X ) *NJDA Y 
NDATF ( IX ) *NJDATF 
IF ( IX-900)132.133.133 

132 IF { NJFL-JFLM )134.» 135*135 

135 NJFL*JFL(IN) 

134 IX*IX+1 

NJTIM=NJTIM+000001 
NMINS*NMIN$+000001 
IF ( JDATF ( IN)-NJDATE) 136*115.136 

136 IF (NM INS- 000059) 12 5.114*114 

131 J130*0 
GOT® 108 

122 J12 1*0 
GOTO 108 

133 J132=0 
GOTO 108 

114 IF (NJTIM-002359) 137.138.138 

137 IF (NM INS- 000059)125*120.12 5 

138 NT IM ( I X ) =NJT IM 
NEL ( I X ) *NJFL 
NCHAR( IX)=NJCHAR 
NDAY (IX) =NJDAY 
NDATF ( IX)*NJDATE 

IF ( IX-900) 139.140. 140 

139 IF ( NJFL-JFLM ) 141 * 142 * 142 
142 NJEL=JFL ( IN) 

141 IX*IX+1 
NJTIM*0 

nmins*o 

NJDAYs JDAY ( I N ) 

NJDATFs JDATF ( IN) 

GOTO 116 

140 J1 39*0 

108 DO 167 M*1 * IX • 

IF (NFL(M)-JELM) 168.169*169 

169 IF (NCHAR(M)-ICHAR) 170.171*170 

171 WRITE (16.172 )NDATE(M) *NT IM (M ) . JK * I »NDAY< M ) .MEL (M ) .NCHAR(M) 

172 FORMAT ( 2H0C . IX * A6 . IX. 14 . IX . I 3 . IX * I 3 . IX . A3 *2X . A 1 * A1 ) 

GOT® 167 

168 IF (NGHAR(M)-IGHVvR) 173*174.173 

17 4 NFL ( M ) sN.CHAR ( M ) 

GOTO 170 

173 NFL CM)*?. 

170 WRITE ( 16.175) NDATECM). NT IM(M) .JK*I .NDAY ( M ) .NEL(M) 

175 FORMAT ( 2H0C * IX * A6 . IX * 14 * IX. I 3 * IX . I 3* IX . A3 • 2X. A1 . 1H ) 

167 CONTINUE 

IF (IX-900) 176. 177. 176 

177 IF ( J630) 178* 179 .178 * 

178 IF (J624) 180*181*180 
180 IF ( J612U82.183.182 
182 IF ( J632U84.185.I84 



184 IF 0180)186* 187*186 

186 IF 0121)188.189*188 

188 IF 0132)190*191.190 

190 IF 0139)176*193*176 
179 J630*2 

IX*0 

GOT© 630 
181 J624-2 
IX*0 

GOT® 624 
183 J612=? 

IX = 0 

GOT© 61? 

185 J632=2 
IX = 0 

GOT® 632 

187 J 130*2 
IX = 0 

GOT® 130 

189 J121*2 
I X = 0 

GOT© 121 

191 J132=2 
IX*0 

GOT© 132 

193 J1 39=2 
IX = 0 

GOT© 139 

176 IF ( NP ASS ) 194 * 100 * 194 

194 NBIG=4 
GOT© 196 

100 IF OSTOKSTC) 197.64,197 

197 PRINT 199*JK* JSTAT (JK) . I ,Z, IDENT 

199 FORMAT ( 7X , 1 3 *3X , A6 * 8X , 1 3 , 3X • A1 , 3X , A5 > 
223 IF (KSTC-FN)46*227.46 

60 JSTC*KS T C 

218 GOT® (200,201*202) »J 

200 RFAD (5*92) KSTC 
IF (EOF ) GOT© 204 

IF ( JSTC-KSTO205. 200*205 

201 READ ( 6*92 ) KSTC 

IF (E®F)G®T® 204 ■ . ' ■ 

IF (JSTC-KSTC) 205 *20 1,205 

202 READ ( 15,92 )KSTC 
IF ( EOF ) GOT® 204 

IF ( JSTC-KSTC)295, 202,205 

204 EOF = • FALSE • 

GOT© (206.207,208 ) *J 
?Of °FWT ND 5 

J=2 ' 

GOT© 201 

207 REWIND 6 
J = 3 

GOT© 202 

208 REWIND 15 

GOT© 200 

205 GOT® (209*210,211 ) *J 

209 RFAD (5*21 )KSKIP 
IF (EOFJGOT© 212 
GOT© 213 
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21 n RFAD (6*21 ) K5K I P 
IF (E©F)G®T© 212 
G®T© 213 

211 READ ( 15*21 >KSKIP 
IF ( E©F )G©T© 212 
G©T© 213 

212 E©F=.FALSF. 

G©T© ( 214*215*216) *J 
21 A RFWIND 5 
J*2 

G©T© 210 

215 RFWIND 6 
J=3 

G©T© 211 

216 RFWIND 15 
J=1 

G®T© 209 

213 IF (KSTC-0P )217 *218*217 

217 G©T© ( 219*220.221 ) *J 

219 READ ( 5*92 )KSTC 
IF (E©F)G©T© 222 
G©T© 223 

220 RFAD ( 6*92 ) KSTC 
IF (F©F)G©T© 222 
G®T© 223 

221 RFAD ( 15*92 )KSTC 
IF (F0F)G©T© 222 
G0T© 223 

222 F©F= * FALSE* 

G®T© (224*225.226) *J 
224 RFWIND 5 
J = 2 

G©T© 220 
,225 RFWIND 6 
J-3 ' 

G©T® 221 

226 RFWIND 15 
J=1 

G©T© 219 

227 G®T© (228*229*230) ,J 

228 RFWIND 5 
J = 2 

G©T© 4 

229 RFWIND 6 
J = 3 

G©T© 4 

230 RFWIND 15 
J-l 

4 C0NTINUF 

PRINT 231 ’ 

231 F©RMAT (lHO.lOHEND ®F RUN) 

END FILF 16 

232 ST ©P • 

FND 

SIBMAP UN16 

ENTRY .UNI 6. 

.UN 16* PZE UN IT 16 

UNIT 16 FILE * B ( 2 ) .READY* IN0UT *BLK*22 *MULT I REEL .BCD *H0LD *N©L 1ST 
FND 
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SIBLDR FRWB 

(RELOCATABLE BINARY DECK F0R SUBROUTINE FRWB ) 
SIBLDR FRWD 

(RELOCATABLE BINARY DECK FOR SUBROUTINE FRWD) 


SIBLDR FSLI 

(RELOCATABLE BINARY DECK F®R SUBROUTINE FSLI) 


SIRLOR FXFM 

(RELOCATABLE BINARY DFCK FOR SUBROUTINE FXFM ) 


SIRLDR NOSYS 

(RELOCATABLE BINARY DECK FOR SUBROUTINE NOSYS) 


SIRLDR GOSYS 

(RELOCATABLE BINARY DECK FOR SUBROUTINE GOSYS) 


( FND-OF-F I LF CARD) 

(DATA CARDS) 

(FND-OP-FILF CARD) 
SFMSVS 

(FND-OF-FILF CARD) 



SIB SYS 
SID R02T 

WDD521 A * 

srFlfasf 

c YSPP1 

SRFLF.ASF 

SYSUT1 

SRFLFASF 

SYSl 1 T 2 

SRPLFASF 

SYSUT3 

SRFLFASF 

SYSUT4 

SATTACH 

RDA 

SAS 

SYS INI 

SFXFCUTF 

SORT 


, OPT I ON *MAP* HI STORY* CARDS* TAPES tNOCKPT 
* CHANNEL * INPUT /8*MERGF/ ( A *B ) 

F I LE * I NPUT / 1 * REELS/ 1 *MODE/D*DENS I TY/H* BLOCKS I ZE/5 
F ILF. OUTPUT *MODE/D* DENS I TY/H*BLOCKS IZE/5 
REC®RD*TYPE/F*LENGTH/5*FIELD/(3*6*1»4»1*3*1*3) 
SORT *SEGUENCF/C *©RDER/3 • F I ELD/ ( 2 *4*6 * 8 ) .FILE/1 
END 

SIRSYS 
SSTOP . 


' SUBPROGRAM 3 


WDD521A* X4189 

DEAR OPERATOR* PLEASE MOUNT THE TAPES*AS DESIGNATED ON 
INSTRUCTION CARD *©N A5 AND A6. MY OUTPUT UNITS ARE SHOWN 
ON THE INSTRUCTION CARD AND*WHEN NUMBER OF OUTPUT UNITS 
FXCFEDS 5. THE ON-LINE PRINTER. 
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STB. SYS 
SID R02T 
$* 

$* 

$* 

$* 



0 


$# 

$* 

$* 

$* 


SAVF MY 0UTPUT TAPFS. 

RESTART MACHINE. THE MACHINE WILL READ AND REWIND A5 AND 
A 6 * SEQUENT I ALLY AND CYCL I CALL Y *UNT I L ALL TAPES ARE READ. 
AFTER A5 OR A6 IS REWOUND.MOUNT . IMMED I ATELY . THE NEXT TAPE 


$# 

AS SHOWN ON INSTRUCTION CARD. 

SPAUSF 


SDATF 

061065 

SFXFCUTF 

IB JOR 

$ I R JOR 

GO ' 

C STATION 

SCHEDULING. SUBPROGRAM 3 ®F PHASF 1 


LOGICAL EOF 
COMMON /SYSFOF/FOF 


F0F s .FALSF . 

CALL S YSGO ( 34 ) 

CALL S YSGO { 35 ) 

INTEGER REELS. .Z. DOT S2* DASH* TNST AT. TNSATL 
DATA I FND/6HFND OF/ . JWORD/6H0C / 

OD I MENS ION NUM ( 100*72 ) »N®T ( 720 ) *MOT(720> * JSTAT ( 100) *MS ATL ( 100 ) *NSU I 

1 1 0 ) * JFL ( 72 ) 

RF AD 2*DOTS2*DASH 

2 FORMAT (2A2) 

READ 3.TNSTAT.TNSATL.REELS 

3 FORMAT (313) 

L = I 

DO 4 NS s l.TNSTAT 

READ 5*JK,KSTAT*NSATL*(NUM( JK.I ) *N0T( I > .I*1.NSATL) 

5 FORMAT ( I3*IX*A4*1X* I 2 * IX * 72 (1 2 * A2 ) ) 

IF ( JK-NS)6.7*6 * 

6 PRINT 8 

80FORMAT ( 1H0 * 1 1 8HSTOPP I NG DATA CARDS OF STATIONS ARE DISORDERED. 

1 CLEAR MACHINE AND PLACE DATA CARDS IN CORRECT ORDER. RERUN PR0GRA 

2M.) 

GOTO 9 

7 JSTAT ( NS )=KSTAT 
MSATL ( NS ) =NSATL 
DO 10 K = 1 *NSATL 
MOT ( L ) *N® T ( K ) 

L = L+1 

10 CONTINUE 

4 CONTINUE 
N S = 1 
NU«1 

11 NSPU=1 
MANY = 0 

12 MANY =MANY+2*MS ATL ( NS ) +2 
IF (MANY- 126) 13- 14.15 

13 IF (NS-TNSTAT) 16.14. 16 

16 NSPU=NSPU+1 
NS=NS+1 

GOTO 12 ’ . 

15 NSPU=NSPU-1 
NS=NS- 1 

IF (NS ?U) 14. 17. 14 

17 PRINT 18 

180FORMAT (1H0.87HSTOPP ING NSPU = 0 . 132 CHARACTER-W IDE PR INT-OUT 

1 SHEET IS INSUFFICIENT FOR THIS JOB.) 

GOTO 9 

14 NSU ( NU ) sN-SPU 

IF (NS-TNSTAT) 19.20*19 • 

19 NS=NS+1 
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NU*NU+1 
G0T® 11 

20 JXX k NU 

IF ( JXX-6)21.22*23 
23 IF ( JXX-7 ) 22 * 2 4 * 25 
23 IF ( JXX-8)24*2.6*27 

27 IF <JXX-9)26. 28.29 

29 IF f JXX-10)28*30*31 
22 PRINT 32 

32OF0RMAT ( 1 HO *67H®PER AT®R ACTI@N PAUSE DIAL TAPE UNIT A4 T© A7. 

1RFSTART WACHINE. ) 

PAUSE 
RFWIND 7 
G0T© 21 
2 A PRINT 33 

33OF0RMAT ( 1H0 » 7OH0PERAT0R ACT I©N PAUSE DIAL A4 T® A7 AND B4 T© B7 

1. RFSTART MACHINE.) 

PAUSE 
RFWIND 7 
REWIND 17 
G©T© 21 
26 PRINT 34 

34OF0RMAT ( 1H0 *80H©PERAT®R ACTI©N PAUSE DIAL A4 T© A7 * B4 T© B7 AN 

ID B2 T® B8. RESTART MACHINE.) 

PAUSF 

RFWIND 7 
RFWIND 17 
PFWIN'D 18 
G®T © 21 

28 PRINT 35 

35OF0RMAT ( 1H0 *90H©PERAT®R ACTI©N PAUSE DIAL A4 T© A7 * B4 T© B7* B 

12 T© B8 AND B1 T® B9. RESTART MACHINE.) 

PAUSF 
REWIND 7 
RFWIND 17 
RFWIND 18 
RFWIND 19 
G0T© 21 

30 PRINT 36 

36OF0RMAT (1H0.11.9H©PERAT©R ACTI®N PAUSE REPLACE REEL ®N A2 WITH A 

IN ©UTPUT REEL. DIAL A2 T© A8*A4 T© A7*B4 T© B7*B2 T© B8 AND Bl T© 
2B9. / 1H0*25X * 16HRESTART MACHINE.) 

PAUSF 
RFWIND 7 
RFWIND 17 
RFWIND 18 
RFWIND 19 
G0T© 21 

31 PRINT 37 ‘ ' 

37OF0RMAT ( 1H0 *65HST®PPI NG — — INSUFFICIENT N®. ©F PHYSICAL TAPE UNITS 

1 FOR THIS J©B.) 

G0T© 9 

21 READ 38.FDATE *FT IME *LDATE *LT IMF 
38 FORMAT (4A6) 

D® 49 J*1 *JXX 

G©T© (50*51*52*53*54*55*56 * 57 *58*59) * J 

50 WRITE (3.60)FDATE.FTIMF.LDATF*LTIME*J*JXX , 

G©T© 49 

51 WRITE ( 1 5 * 60 ) FDATE * FT I ME *LDATE *LT IME » J* JXX 
G®T© 49 
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52 WRITE ( 16*60)FDATE*FTIME.LDATE,LTIME,J»JXX 
GOT © 49 

53 WRITE <21.60)FDATE»FTlMEtLDATE*LTlME.J.JXX 
GOT© 49 

54 WRITF (22*60 ) FDATE * FT I ME .LDATF *LT IMF , J , JXX 
GOTO 49 

55 WRITE ( 7 *60 ) FDATE.FT IME .LDATE *LT IME * J* JXX 
GOT© 49 

56 WRITE ( 17*60)FDATE*FTIME.LOATE*LTIME*J*JXX 
GOTO 49 

57 WRITE ( 18*6C ) FOATE . FT I ME . LDATE * L T IME . J*JXX 
GOTO 49 

58 WRITE ( 19*60 )FDATE*FTIME *L DA TE*LT IME *J*JXX 
GOTO 49 

59 WRITE (8*60)FOATE*FTIME*LDATE*LTIME*J*JXX 

6OOF0RMAT ( 1H1 / 1H0 /1H0/ 1H0/ 1H0/1HQ/ 1H0/ 1H0/ 1H0/ 1 HO/ 1 HO/ 1H0 *49X * 27H0PE 
1RATI0NAL PREDICTIONS F0R/1H * 53X * 18HST AT I ON SCHEDUL I NG/ 1H0 * 49X *4HF 
2R©M» 2X*A6*1X»A6/1H * 51X ♦ 2HT® *2X * A6 * IX ♦ A6/ 1H0 * 56X * 5H ( PART , IX , I2*lX* 
32H©F*1X*I2 *1H)/1H1/1HG*77HID. ID. NO. SATELLITE START-DATE STAR 
4T-T I ME STOP-DATE ST©P-TIME MIN.EL./1H ,24X*50HY M D H M S 

5 Y m D H M S DEG.) 

49 CONTINUE 
JRE-1 
J J2 = 1 

DO 61 JT*1,TNSATL 

READ 62*2. IDENT .JSATL, NOS .JSDAT * JST IM, JXDAT* JXTIM.JPS1 

62 FORMAT ( A1 * IX * A5 * IX * A6 . A4 . IX * A6 . 1 X* A6 * IX* A6 * IX . A6 * IX * A5 ) 

DO 63 J=1 .JXX 

GOT© ( 64*65*66*67*68.69*70*71 *72*73 ) * J 

64 WRITE (3*74)2 , IDENT .JSATL, NOS, JSDAT, JST IM, JXDAT* JXT I M.JPS I 
GOTO 63 

65 WRITE ( 15*74)2* IDENT * JSATL * NOS .JSDAT * JST I M, JXDAT, JXT IM.JPSI 
GOT© 63 

66 WRITE ( 16*74)2* IDENT. JSATL. NOS* JSDAT, JST IM, JXDAT. JXT IM.JPSI 
GOTO 63 

67 WRITE (21*74)2, IDENT. JSATL.NOS* JSDAT* JST IM, JXDAT. JXTIM,JPSI 
GOT© 63 

68 WRITE (22,74)2, I DENT* JSATL.NOS. JSDAT, JST I M, JXDAT, JXT IM.JPSI 
GOTO 63 

69 WRITE (7*74)2* IDENT * JSATL .NOS * JSDAT , JST IM, JXDAT .JXT I M.JPS I 
GOTO 63 

70 WRITE ( 17.74)2, I DENT, JSATL, NOS. JSDAT. JST I M, JXDAT, JXT I M.JPS I 
GOT© 63 

71 WRITE ( 18*74)2* IDENT* JSATL, NOS, JSDAT, JST IM, JXDAT, JXT IM.JPSI 
G©T® 63 

72 WRITE (19*74)2* IDENT , JSATL , NOS , JSDAT .JST I M, JXDAT , JXT I M,JPS I 
GOT® 63 

73 WRITE (8. 74 Ms IDENT , JSATL , NOS .JSDAT ♦ JST IM .JXDAT , JXT I M, JPS I 

74 FORMAT (1H ,A1 *4X * A5 *3X* A6 , A4 * IX . A6 *6x » A6 *6X * A6 , 5X , A6* 5X* A5 ) 

63 CONTINUE 
61 CONTINUF 

NU*1 
N5-0 
L*0 
K = 0 

75 NX-1 

81 NS-NS+1 ' 

JT - 1 

76 L»L+1 
K*K + 1 
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N©T(L)*M©T(K) 

IF ( JT-MSATUNS) )77.78.77 

77 JT * JT+1 
G©T© 76 

78 IF (NX-NSU(NU) )79. 80*79 

79 NX*NX+1 
L * L + 1 

N©T(L)*D©TS2 
G©T© 81 

80 IF (NU-JXX)82. 33*82 

82 NU*NU+1 
G©T© 75 

83 READ (5*84) KW0RD *KDATE*KTIM*JK»I* KDAY * KEL 

84 FSRMAT ( A2 * IX • 1 6 * 1 X * A4. 1 X » 1 3 * IX * I 3 . IX * 1 3 * 2X • A2 ) 

IF ( KW0RD-JW0RD )83*85*83 

85 JOATFsKHATF 
191 LXX=0 

LSU = 0 
NX = 0 

D© 86 J*1 *JXX 
MXX*NSU ( J ) 

LSU*LSU+MXX 
D© 87 MN = 1 * M X X 
NX*NX+1 

LXX«LXX+MSATL (NX ) 

87 C0NTINUF 
LXX=LXX+MXX-1 

G©T© ( 88*89. 90*91*92*93*94. 95*96*97) *J 

88 WRITE (3*98)KDATE*KDAY* (JSTAT (NS) *NS=1*LSU) * ( N0T (L) *L=1*LXX) 

G©T© 108 

89 WRITE ( 15*99 )KDATE*KDAY* (JSTAT (NS) *NS = N1 ,LSU) * (N@T(L ) *L = N2 *LXX) 

G©T© 108 

90 WRITE (16*100)<DATE*KDAY*{ JSTAT (NS) *NS«N1*LSU) *(N©T (L) *L=N2.LXX> 
G©T© 108 

91 WRITE (21.101 )KDATE.KDAY* (JSTAT (NS) *N$«Nl,'LSUJ * ( N0T ( L ) *Ls,N2 *LXX ) 
G0T® ,108 

92 WRITE ( 22 * 102 )KDATE* KDAY .(JSTAT (NS) »NS*N1,LSU) * ( N©T ( L ) *L = N2 *LXX ) 
G©T® 108 

93 WRITE (7*103) KD ATE. KDAY . ( JST AT ( NS ) *NS»Nl *LSU ) * ( N0T ( L ) »L = N2 *LXX ) 

G©T© 108 

94 WRITE ( 17.104)KDATE*KDAY.( JSTAT (NS) *NS*Nl.LSU) * ( N0T ( L ) *LsN2 *LXX ) 
G©T© 108 

95 WRITE ( 18.105 )KDATE*KDAY* ( JSTAT (NS) *NS=N1*LSU) . ( N©T ( L ) *L*N2 * LXX ) 
G®T© 108 

96 WRITE ( 19.106)KDATE*KDAY.( JSTAT (NS) *NS*N1*LSU) * ( N©T ( L ) , L*N2 *LXX ) * 

G©T© 108 * 

97 WRITE (8.107)KDATE.KDAY. ( JSTAT(NS) *NS=N1*LSU) . (N©T(L) ,L=N2*LXX) 

108 N1=LSU+1 
N2*LXX+1 

86 C0NTINUF \ 

JSKlPsl 

109 JTIM*KTIM 
MJK*1 

NX* 1 
J*1 
•68 N*1 
NS*1 
no K* JK 
M*1 

111 IF (MJK-K) 112.1 13.112 
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11? NSATL=MSATL(NX) 

D0 114 M=1 .N5ATL 
JFL ( N ) *DASH 
N*N+1 

114 C0NTINUF 
NX*NX+1 

IF (NS-NSU(J) ) 115*116.115 

115 NS*NS+1 

JFL ( N ) *D0TS2 
N = N+1 
G0T0 129 

116 N=N-1 

G0T0 ( 117 *118 *119* 120» 12 1.122* 123 *124. 125* 126) ,J 

117 WRITE (3.127)JTIM.( JFL(IN) ,IN*1.N) 

60T0 128 

118 WRITF (15,127) JTIM. (JEL( IN) .iNsl.N) 

G0T0 128 

119 WRITE (16.127) JTIM, (JELUN) *IN=1,N) 

G0T0 128 

120 WRITE (21 .127) JTIM. ( JEL( IN) *IN*1.N) 

G0T0 128 

121 WRITE (22,127) JTIM, (JEL( IN) ,IN*1,N) 

G0T© 128 

122 WRITE (7*127)JTIM* ( JFL C IN) , I N S 1 ,N ) 

G0T© 128 

123 WRITF (17.127)JTIM*(JEL( IN) , I N* 1 ,N ) 

G0T© 128 

124 WRITE ( 18.127) JTIM. (JEL( IN) .IN-1. N) 

G0T0 128 

125 WRITE (19*127) JTIM.(JEL( IN) .IN*1.N) 

G0T© 128 

126 WRITE (8.127) JTIM. (JEL( IN) .IN-l.N) 

127 F0RMAT (1H .A4.3X.72A2) 

128 J*J+1 
N*1 
NS*1 

129 -MJK=MJK + 1 
M = 1 

G0T'© 111 

113 IF (NUM(K.M)-I ) 130.131.130 

130 JFL ( N) *OASH 

132 M=M+1 
N*N+1 
G0T© 113 

131 JFL ( N) *KFL 

133 G0T© (134,135) ,JJ2 

134 READ ( 5. 136 JKDATE.KT IM.JK.I .KDAY.KEL 
IF ( E0F ) G0T0 137 

G0T0 138 

135 READ (6.136)KDATE*KT IM , JK ♦ I .KDAY »KFL 
IF (F0FJG0T0 137 

G0T© 138 

136 F0RMAT- ( 3X . 1 6 . IX . A4. IX , 1 3 , 1 X . 1 3 . 1 X . 1 9 . 2X . A? ) 

137 F0F*. FALSE. 

IF (JRE-RFELSJ139.140.139 
139 JRF* JRF+1 

G0T0 ( 141.142) ,JJ2 
141 REWIND 5 
JJ2*2 
G0T© 135 
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14? RFWIND 6 
JJ2«* 1 
G®T® 134 
140 JRE* IEND 

GOT® ( 143*144) *JJ2 

143 REWIND 5 
G©T© 145 

144 REWIND 6 
G0T© 145 

138 IF ( JDATE-KDATE)145*146*145 

146 IF (JTIM-KTIM)145. 147*145 

147 IF (K-JK)148. 149*148 

149 IF (NUM(K.M)-I ) 132*133*150 

150 PRINT 151 

151 FORMAT ( 1H0*36HST®PPING SORT ERROR ©N INPUT TAPE) 

GOT® 9 

148 IF (M-MSATL(NX) )152. 153*152 

152 M*M+1 
N*M+1 

JEL(N) *DASH 
G®T© 148. 

153 NXsNX+1 

IP (NS-NSU(J)) 154*155*154 

154 N*N + 1 
NS*NS+ 1 

JFL ( N ) «D©TS2 

156 N=N+1 
MJK*MJK+1 
GOT© 110 

155 GOTO ( 157,158,159*160*161*162.163*164.165.166} *J 

157 WRITE ( 3 * 127 ) JT IM* (JEL ( IN ) * IN-1 *N ) 

GOT© 167 

158 WRITE ( 15*127) JTIM* (JEL ( IN) * I N»1*N) 

GOT© 167 

159 WRITE (16*127) JTIM* ( JEL( IN),IN»1-*N) 

GOT©' 167 

160 WRITE C 21 *127). J TIM* ( JFL ( IN) * I N«1 *N ) 

GOTO 167 

161 WRITE (22, 12 7) JTIM. ( JEL( IN) * IN=1 *N) 

GOT© 167 

162 WRITE <7*127)JTIM. ( JEL( IN) ,IN=1,N) 

GOT© 167 

163 WRITE ( 17.127) JTIM. (JEL( IN) *IN=1*N) 

GOT© 167 

164 WRITE (18.127) JTIM. (JEL ( IN) * I N= 1 , N ) 

GOTO 167 

165 WRITE ( 19 * 127 ) JTIM, ( JEL ( IN). IN»1*N ) ’ 

GOTO 167 

166 WRITE (8*127) JTIM* (JEL ( IN) ,IN*1,N) 

167 J* J+l 
MJKsMJK+1 
GOTO 168 

145 IF ( M-MSATL (NX ) ) 169*170*169 

169 M*M+1 
N*N+1 

JEL ( N ) *DASH 
GOT© 145 

170 NX*NX+1 

IF (NS-NSU( J )) 171*172, 171 

171 N*N+1 
NS*NS+1 
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JEL(N)*D0TS2 

M*0 

GOT© 169 

172 G©T© ( 173.174.175.176.177.178.179.180.181.182) .J 

173 WRITE (3*127)JTIM»( JEL ( IN) * IN*1 *N ) 

GOT® 183 

174 WRITE ( 15* 127 ) JT IM. ( JELt IN) • IN*1 »N ) 

GOT© 183 

175 WRITE ( 16.127) JTIM.(JELUN) .INsl.N) 

G0T0 183 

176 WRITE (21 .127) JTIM. ( JEL( IN) *IN*1 .N) 

G0T0 183 

177 WRITE (22.127) JTIM.UEK IN) *IN*1.N) 

G©T0 183 

178 WRITE (7*i27)JTlM. ( JEL( IN) ,IN=1,N) 

G0T® 183 

179 WRITE ( 17*127) JTIM.UELI IN) .IN-1.N) 

GOT® 183 

180 WRITE ( 18.127) JTIM. < JEL ( IN) .IN*1.N) 

G0T© 183 

181 WRITE ( 19.127) JTIM. <JEL( IN) .IN=1.N) 

GOT® 183 

182 WRITE (8.127) JTIM. (JFL( IN) *IN=1 .N) • 

183 IF (J-JXX) 184.185*184 

184 JsJ+1 
N = 0 
NS* 1 
M = 0 

G©T® 169 

185 IF (JRF-IFND) 186.187.186 

186 IF ( JOATF-KDATE ) 188*189*188 

188 D© 192 J=1*JXX 

G0T® ( 193.194.195.196.197.198.199.200.201.202) ,J 
1 9«3 WRITF (3.203) 

G©T© 192 

194 WRITF (15.203) 

G©T© 192 

195 WRITF (16.203) 

G0T© 192 

196 WRITE (21 .203) 

GOT© 192 

197 WRITE (22.203) 

G0T© 192 

198 WRITF (7.203) 

G©T® 192 

199 WRITE (17*207) 

G®T© 192 

200 WRITF ( 18.203) 

GOT© 192 

201 WRITE (19.203) 

G0T0 192 

202 WRITE (8.203) 

203 FORMAT (1H • 3 HE NO 5 
192 CONTINUE 

GOT© 85 

189 IF ( JSKIP-57)I90.191.190 

190 JSX IPs JSK I P+1 
GOT® 109 

187 DO 204 J*l *JXX 

GOT® (205,206.207.208.209.210.211.212.213.214) .J 


V 


205 WRITF (3*21,5 ) JRE 
GOT© 204 

206 WRITE ( 15*215 ) JRE 
GOTO 20*> 

207 WRITE (16*215) JRE 
GOT© 204 

208 WRITE (21*215) JRE 
GOTO 204 

209 WRITF (22*215) JRE 
GOTO 204 

210 WRITF (7,215 ) JRE 
GOT® 204 

211 WRITF 1 17 ,2 15 ) JRE 
GOT© 204 

212 WRITF ( 18 , 215 ) JRE 
GOT© 204 

213 WRITE ( 19*215 ) JRE 
GOT© 204 

214 WRITE (8.215 ) JRE 

215 FORMAT (1H *3HFND/1H *A6*4H RUN) 

204 CONTINUF 

98 FORMAT 

(FORMAT MUST RE UPDATED FOR EACH RUN# SEE APPENDIX B) ' 

99 FORMAT 

(FORMAT MUST BF UPDATED FOR EACH RUN. SEE APPFNDIX B) 

100 FORMAT 

(FORMAT MUST BE UPDATED F©R FACH RUN. SEE APPENDIX B) 

101 FORMAT 

(FORMAT MUST BF UPDATED FOR FACH RUN. SEE APPENDIX B) 

102 FORMAT 

(FORMAT MUST BE UPDATED FOR EACH RUN. SEE APPENDIX B) 

103 FORMAT 

(FORMAT MUST BE UPDATED FOR EACH RUN. SEE APPENDIX B) 


104 FORMAT 

(FORMAT MUST BE UPDATED FOR EACH RUN. SEE APPENDIX B) 

105 FORMAT 

(FORMAT MUST BE UPDATED FOR FACH RUN. SEE APPFNDIX B) 

106 FORMAT 

(FORMAT MUST BF UPDATED FOR FACH RUN. SEE APPENDIX B) 

107 FORMAT ‘ 

(FORMAT MUST BE UPDATED FOR EACH RUN. SEE APPENDIX B) 

9 STOP ■' 

END 

SIBMAP UNI 5 

ENTRY . .UNI 5. 

• UNI 5. PZF UN IT 15 

UN I T 1 5 FILE * B ( 1 > * READY * IN0UT *BLK*22 »MULT IRiEEL , BCD* HOLD* NOL 1ST 
FND 
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SIBMAP UN 16 

FNTRY .UN16. 
•UN16* PZE 
UNIT 16 FILE 
FND 

SIBMAP UN2 1 

ENTRY »UN21 • 
..UN-21. PZE 
UNIT21 FILE 
FND 

SIBMAP IJN22 

ENTRY .UN22. 
.UN22. PZF 
UNIT22 FILE 
END 

SIBMAP UNOT 

ENTRY .UN07. 
•UN 07 • PZF 
UNIT07 FILE 
END 

SIBMAP UN17 

FNTRY* «UN17. 
•UNIT. PZF 
UNIT17 FILE 
FND 

SIBMAP UN 18 

FNTRY .UN18. 
•UN 18. PZE 
UNI T] 8 FILE 

FND 

SIBMAP UN19 

ENTRY • UN19« 

• UNI R. PZF 
UN IT 19 FILE 
FND 

SIBMAP UN08 

ENTRY • UN08. 

• UN08 • PZE 
UNIT08 FILE 
END 


UNIT16 

*B(2) »READY* iN©UT#BLK*22 *MULTi REEL >BCD*H0LD*NOL 1ST 


UNIT21 

,C( 1 ) »READY*IN0UT*BLK»22*MULTIREEL*BCD»H0LD*N®LIST 


UNIT22 

*C ( 2 ) # READY » I N0UT *BLK=22 *MULT I REEL * BCD* H0LD *N0L 1ST 


UNIT07 

• A ( 3 ) » READY • 1N0UT *BLK*22 *MULT I REEL # BCD t HOLD *N0L 1ST 


UNIT17 

* B ( 3 ) » READY f IN0UT*BLK»22»MULTIREEL.BCD*H0LD*N0LIST 


UNIT18 

♦ BU) » READY t IN0UT »BLK«22 *MULT I REEL * BCD* HOLD *NOL 1ST 


UN I T 1 9 

*B(5) *READY*IN®UT»BLK«22.MULTIREEL*BCD*H©LD»N0LIST 


UN IT 08 

*AU) * READY * I N0UT t BLK*22 * MULT I REEL • BCD * HOLD tNOL 1ST 


SIBLDR FRWB 

(RELOCATABLE BINARY DECK F0R SUBROUTINE FRWB) 
SIBLDR FRWD 

(RELOCATABLE BINARY DECK FOR SUBROUTINE FRWD) 
SIBLDR FSL I 

( RELOCATABLE BINARY DECK FOR SUBROUTINE FSLI ) 
SIBLDR FXEM 

(RELOCATABLE BINARY DECK F®R SUBROUTINE FXEM) 
SIBLDR NOSYS 

(RELOCATABLE BINARY DECK FOR SUBROUTINE NOSYS) 
SIBLDR GOSYS 

(RELOCATABLE BINARY DECK FOR SUBROUTINE GOSYS) 

(FND-OF-F ILF CARD) 

SFMSYS 

(FND-OF-FILF CARD) 
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APPENDIX B 



98OF0RMAT <1H1»7X*I6*2X#I3/1H *4HTIME*3XtA6* (2*MSATL( 1 )-4|X#A6t (2*MSA 
!TL(2)-4)XfA6f •A6t(2*MSATL(NSUm >-4)XfA6/lH *3HH M*4Xf72A2> 


99OF0RMAT (1H1 .7X* I6*2X*I3/1H *4HTlMEf 3XfA6f ( 2*MSATL ( NSUU ) +1 )-4)XfA6 

l»(2*MSATL(NSU(l)+2)-4)XtA6.- *A6 * ( 2*MSATL ( NSU< 2 ) )*4)X#A6/1H *3 

2HH M.4X72A2) 

1OOOF0RMAT (1H1*7X*I6*2X*I3/1H *4HTIME*3X.A6» (2 # MSATL(NSU(2 )+l )-4)X*A6 

If <2*MSATL(NSU(2)+2)~4)XfA6f #A6 * ( 2 # MSATL( NSU( 3 ) ).“4)X#A6/1H *3 

2HH M#4X.72A2) 

1O1OF0RMAT (lHl»7XtI6*2X*I3/lH #4HT IMF * 3X*A6 * (2 # MSATL (NSU( 3 ) +1 )-4)XfA6 

If <2*MSATUNSU(3)+2 )-4)X*A6# • A6 » ( 2*MSATL ( NSU< 4 ) ) -4 ) X *A6/1H #3 

2HH M #4X * 72A2 ) 

1O2OF0RMAT (1H1#7X*I6*2X»I3/1H *4HT IME *3X* A6 • ( 2*MSATL ( NSU< 4) +1 >-4 ) X #A6 

1 1 ( 2*M5ATL ( NSU ( 4 ) +2 ) ~4 ) X* A6 • tA6 * ( 2*MSATL< NSU( 5 i )“4)X»A6/1H #3 

2HH Mt4X • 72 A2 ) 

1O3OF0RMAT ( 1H1 *7Xt I6*2X » I3/1H »4HT IME » 3X * A6 • ( 2*MSATL ( NSU( 5 ) +1 ) ~4 ) X t A6 

1* (2*MSATL(NSU(5 )+2 )-4)X*A6* t A6 » { 2*MSATL ( NSU( 6 ) )-4)X»A6/lH »3 

2HH M»4X*72A2) 

1O4OF0RMAT ( 1H1 *7X 1 16 t2X . 1 3/ 1H *4HT IME »3X * A6 » ( 2*MSATL ( NSU( 6 ) +1 ) -4 ) X *A6 

1 * ( 2*MSATL (NSU( 6 )+2 )”4)Xf A6f * A6 * ( 2*MSATL ( NSU( 7 ) ) -4) X • A6/1H #3 

2HH M.4X.72A2) 

1O5OF0RMAT ( 1H1 *7X * 16 *2X * 1 3/1H *4HT IME 1 3X * A6 » 1 2*MSATL ( NSU< 7 ) +1 ) -4 ) X »A6 

1* (2*MSATL(MSU(7)+2 )-4)X*A6. » A6 » ( 2*MSATL { NSU ( 8 ) ) “4 ) X t A6/ 1H #3 

2HH M 1 4X * 72A2 ) 

•» 

1O6OF0RMAT ( 1H1 • 7X t 1 6*2X . 1 3/ 1H 1 4HT IME 1 3Xf A6 * < 2*MSATL ( NSU ( 8 ) +1 > ^4 ) X ♦ A6 

It (2*MSATUNSU(8)+2)-4)XtA6f f A6 f < 2*MSATL( NSU< 9 ) >~4 ) Xf A6/1H t3 

2HH M f 4X * 72 A2 ) 

1O7OF0RMAT (lHlt?X» I6»2X»I3/1H f4HT IMEf 3Xf A6 f ( 2*MSATL ( N5U< 9 ) +1 ) -4 ) Xf A6 

If (2*MSATL(NSU{9)+2)“4)XfA6* f A6 f ( 2*MSATL ( NSU< 10) )-4)Xf A6/1H . 

23HH Mf 4Xf 72A2 ) 


43 



